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DECUS Program Library WHte-up 


DECUS NO. 8-585 


FAC HANDLER 

Many times when doing’ off line punching on paper* tape one 
would be glad if it was possible to make error corrections 
directly on the tape as one discovers them. The corrections 
should then be performed as the tape is read e g by EDIT or 
PIP. This can be achived by the submitted handler FAC. This 
which is a major revision of the PTR handler will do certain 
editing on the input tape as it is read. There is one major 
restriction in this handler. It must have available buffer 
area at a fixed address in core. The library submitted handler 
uses locations 27^00-27577* The incoming line is stored in 
this area until it is transmitted to the user program. This 
area is available for any other program use as long as it is 
not touched between calls to the handler on the same input 
material. The buffer can be located anywhere in core. Its 
address is given by two symbols in the beginning of the 
assembly. 

The handler will do the following: 

1. It will convert all small letter codes to capital codes, 
i e it is irrelevant on punching if we use capitals or 
small letters. 

2. It will recognize the rubout character and delete one 
character from the input buffer per rubout. This is 
equivalent to the use of the rubout character on the 


editor. 






3- It will recognize control U in the same way as the editor, 
but it will not (as the editor will) generate a blank line. 
The rest of the line U is ignored. 
k. A line longer than the allowed maximum (80 in the library 
version, see listing) is ignored. 

5. It will recognize a control Z in the tape and stop the 
tape. This means that if different mateial is punched 
with little or no blank "tape in between it is still 
possible to separate them on reading the material. 

6. There is a table driven routine in the handler to change 

any character into another. This is not read in the 
library version but can be included if you have a tele¬ 
type or punch that is missing some characters. See 
listing for details. 

The handler should of course only be used for ASCII material 
as it is specially designed for such. 

If this handler is used in combination with the most recent 
version of INPUT, it gives a highly efficient method of 
reading off line produced paper tapes to FORTRAN programs. 

The routine will check that the data buffer is not touched 
between calls by checking that the address of the last 
character transfered is within the legal limits of the buffer. 
It is not possible to do any other area checking and it is 
advisable to make sure that the user programs can not touch 
the data buffer. Of course in 12 K this is easy as many 
programs only use 8 K. In 8 K computers this becomes much 
more difficult. 
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/FflC 

HRNDL E R 

F OR FRC 

:n PUNCH PPL 8- V? :1:1PPGF. ;j 

1 



/F PC HANDLER FOR F PC 11 PUNCH 

2 



/FPC HRNDLER FOR FPC 11 PUNCH 

3 



/F RC HPNDL E R F 0R F pC 31 PUNCP 

4 



F'PGE HANDLER 1 ! 1 

5 



/CONTAINS LOGIC TO RESPOND TO ERROR CODES FROM PUNCH 

6 



/WILL ALSO DO SOME CODE CONVERT IG 

•J7 



/P> ALL SMALL LETTER CODES CONVERTED TO CORRESPOND IN 

8 



/ PAGE R E L 0 C A T A 6' L E 

Q 



/THE FOLLOWING IS FOR OSS BUILD 

10 


0000 

+0 

11 

00000 

»■* »■’ r" 

-1 /ONE HANDLER 

12 

00001 

0620 

DEVICE FPTR 

gk3 

00002 

2422 


W4 

00002 

0601 

DEVICE FAC /PERMANENT NAME 

15 

00004 

0200 


16 

00005 

2010 

2 010 /D F V ICE T V P E =READE R 

i? 

00006 

4000 

4 0 y 0 uL p R i j E U F F b E f ~ 0 

18 

0000? 

0000 

ZBLOCK 2 

19 



DEC I MAI. 

20 


0120 

BFSIZE-80 /SIZE OF LINE 

21 



OCTAL . 

22 


7400 

BFSTART=7400 /LOCATION OF INPUT BUFFER DETERMINED BY 



0002 

BFIELD=2 /THESE TWO SYMBOLS 

24 




25 



/* 

26 


0225 

E R R L C=2 2 5 / - U = R E M 0 V E 1 L IN £ 

27 


0224 

ERRCC-234 /DELETE ONE CHAR 

28 

29 


7802 

B50=7002 /TO SAVE 1 LOCATION 

39 


7 4 21 

MOL=7421 /SAVE ADRESSES IN MO 

31 


7701 

ACL=7701 

«t 




34 



/ 

35 



/ 

36 

... 


0020 

BFIELM=BFIELD'10 /DO NOT CHANGE THIS 

i 

38 


0200 

+ 200 

39 

00208 

0000 

FAC IT, O 

40 

00201 

7200 

CLP CLL 

41 

00202 

6 214 

R D F / GET FIE!. D 0 F C A L L. I N G P R 0 G R A M 

42 

00203 

1274 

FAD FAUCIF 

43 

00204 

2207 

DCA FAC/IT /SET UP RETURN SEQUENCE 

44 

00205 

1600 

TAD I FAC IT 

45 

00206 

0 2 6 6 

AND FA70 

46 

00207 

1260 

TAD FCDF 

47 

00210 

2254 

DCA FACCDF 

48 

00211 

1600 

TAD I FAC IT 

49 

00212 

2206 

ISZ FAC IT 

50 

0@213 

7510 

SPA /CHECK CORRECT MODE 

51 

00214 

5256 

J M P F A C E R R ' S IG N A L " U N R E C 0 V E R ABLE D E VIC E E R R OR" 

52 

00215 

0262 

AND FA7700 

53 

00216 

7040 

CMA /SET UP -<WORD COUNT>/2-l 

54 

00217 

226:1 

D C A F A U W C 

55 

00220 

1600 

TAD I FAC 1T /SET UP STATING ADDRESS 
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/FAC 

HANDLER 

FOR FRC 

IT PUNCH 

PAL8-V7 

1 ;1 / 2 9 / 7 2‘ F‘ H G E. 1 1 

56 

00221 

2200 


I S3 FAC IT 


5? 

00222 

3 3 6 6 


DCA FACCA 


58 

00223 

4224 


JMS FAGADD 


59 

00224 

0000 

FRORDD, 

0 


60 

00225 

1224 


TAD FAGADD 


61 

00226 

1377 


TAD < FAGCH-. +2! 

> 

62 

00227 

2224 


D C A F A G A D D 


63 

00220 

1224 


TAD FAGADD 


64 

@0221 

1276 


TAD < TABLE-FAGCH > 

65 

00222 

74 21 


MOL 

/SAVE ADRESS OF TABLE ON MO 

66 

00222 

1600 


TAD I FAC IT 


67 

00224 

6201 


CDF O 


68 

00225 

7640 


S2A CLR 


69 

00226 

5251 


JMP FRCKRT 


70 

00227 

1375 


TAD <BUFFER 


71 

00240 

2265 


DCA F1ADDR 

/ACCES EXTRA BUFFER 

72 

00241 

2367 


DCA FACEOF 

/SET END OF FILE SWITCH 

73 

00242 

1274 


TAD <336 

/INPUT INITIALIZATION - TVPE 

74 

00242 

6046 


TLS 


75 

00244 

6031 


KSF 


76 

00245 

5244 


JMP .-1 


77 

00246 

6 0 3- 2 


6" 0 3 2 

/CLEAR AC AND KEYBOARD FLAG 

78 

00247 

4624 


JMS I FAGADD 


79 

00250 

5267 


JMP FACKRS 


80 

00251 

6221 

FRCKRT, 

CDF BFI ELM 


81 

00252 

1772' 


TAD BFSAVE 


82 

00252 

2265 


DCA FIADDR 


83 

00254 

1375 


TAD < BUFFER 


84 

00255 

7041 


CIA 


85 

00256 

1365 


TAD FlfiDDR 


86 

00257 

7510 


SPA 


87 

00260 

5256 


JMP FACERR 


38 

00261 

1272 


TAD <-BFSI2E 


89 

00262 

7500 


SMA 


90 

00262 

5256 


JMP FACERR 


91 

00264 

5267 


JMP FACKRS 


92 

00265 

2266 

FRCEND, 

IS2 FACCA 


93 

00266 

0070 

FA 70, 

70 


94 

00267 

6024 

FACKRS, 

KRS 


95 

00270 

0271 


AND <177 


96 

00271 

1262 


TAD FACM2 


97 

00272 

7640 


S2A CLA /IS THERE A "C IN THE TTV BUFFER? 

98 

00273 

5 2 r* 6 


JMP FACIS2 

/NO 

99 

00274 

6202 

FACC IF, 

CDF CIF 0 


100 

00275 

5770- 


JMP 76O0 


101 

00276 

2261 

FACIS2, 

IS2 FACWC 


102 

00277 

531:1 


JMP FACLP 


103 

00300 

1265 

FACRTN, 

TAD FIADDR 


104 

00301 

6 2 21 


CDF BFI ELM 


105 

00302 

2773" 


DCA BFSAVE 


106 

00303 

13fc~7 


TAD FACEOF 


107 

00304 

7750 


SPA CLA SNA 

/DID WE RUN OUT OF TAPE? 

108 

00305 

2200 


IS2 FAC IT 


109 

00206 

2200 


IS2 FAC IT 


110 

00307 

7402 

FAGXIT, 

HLT /EXIT 

CDF GOES HERE 



AND 
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ill 

00316 

5600 


JPIP 

I FAC IT 

112- 

00311 

4 226 

FACLP, 

JMS 

FACGCH /READ 1ST CHAP 

112 

00312 

3766 


DC A 

I FACCA 

114 

00312 

4 3 3 6 


JMS 

FACGCH 

115 

00314 

3264 


DC A 

FACPCH /2ND CHAR 

116 

00315 

4226 


JMS 

F ACGCH 

117 

00316 

2 2 3- 6 


DC A 

FACGCH 

118 

00217 

1226 


TAD 

FACGCH 

119 

00320 

7086 


RTL 


120 

00221 

7806 


RTL 


121 

00322 

0272 


AND 

< 7 4 00 

122 

00322 

1766 


TAD 

I FACCA 

122 

00324 

3 7 6 6 


DC A 

I FACCA /WORD 1 

|124 

00325 

1326 


TAD 

FACGCH 

'125 

08226 

7812 


RTR 


126 

00327 

7012 


RTR 


127 

00220 

7010 


RAR 


128 

00321 

0272 


AND 

<7400 

129 

00222 

.1364 


TAD 

FACPCH 

130 

00323 

2 3 6 6 


ISZ 

FACCA 

131 

00334 

2766 


DC A 

I FACCA 

122 

00225 

5265 


JMP 

FACEND 

133 

00336 

0880 

FACGCH, 

0 


134 

00327 

1367 


TAD 

FACEOF 

135 

00340 

764 8 


SZ A 

CL A 

136 

00341 

5254 


JMP 

FACCDF 

137 

00242 

6 221 


CDF 

BFIELM 

128 

00242 

1765 


TAD 

I F1ADDR 

129 

00344 

7448 


SZA 


140 

00345 

5252 


JMP 

FACCDF-1 

141 

00346 

4624 


JMS 

I FAGADD 

142 

08247 

2267 


DC A 

FACEOF 

|143 

00250 

1275 


TAD 

<BUFFER 

144 

00351 

2265 


DC A 

F1ADDR 

145 

00352 

5337 


JMP 

FACGCH+1 

146 

00353 

2 3 6 5 


ISZ 

FIADDR 

147 

00254 

0008 

FACCDF, 

0 

/FIELD OF DATA BUFFER 

148 

00355 

5726 


JMP 

I FACGCH 

149 

00256 

7330 

FRCERR, 

CL A 

CLL CML RAR /SIGNAL A "PERMANENT 

150 

00257 

5206 


JMP 

FACXIT-i 

151 

00360 

6201 

FCOF, 

CDF 

0 

152 

00261 

0000 

FA CWC, 

0 


153 

00362 

1 » < J 

FA CM 3, 

-3 


154 

00263 

7700 

FR7700, 

7780 

155 

@0264 

0000 

FACPCH, 

0 


156 

80265 

0000 

F1A0DR, 

0 


157 

00266 

0000 

FACCA, 

0 


158 

00367 

©000 

FACEOF, 

0 


159 

00270 

7680 




168 

00271 

8177 




161 

00272 

7 6 6 8 




162 

00272 

7400 




162 

00374 

0336 




164 

00275 

7481 




165 

00276 

0120 
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'FAC 

HANDLER 

FOR FAC 

IT PUNCH 


PALS-VI 

166 

08377 

@156 




16? 


0400 

PAGE 



’FAC 

HANDLER 

FOR FAC 

IT PUNCH 


PALS-V 

168 



/+++NOTE 

ERRLF MUST 1 

16.9 

00400 

7120 

ERRLF, 

STL 

/MARI 

170 

00401 

5204 


JHP 

NEWLIN 

171 

00402 

0000 

FAGCH, 

0 


172 

00403 

7388 


CL A 

CLL 

173 

00404 

3378 

NEW!. IN, 

DC A 

EOLSW 

174 

00405 

3 3 65 


DC A 

FLCOUIM 

175 

00406 

13 7 7 


TAD 

<BUFFER 

176 

00407 

3 3 6 7 


DC A 

FAD DR 

177 

00410 

4270 


JMS 

FSEND 

178 

00411 

1376 


TAD 

< --BFSIZE 

179 

00412 

3365 


DC A 

FLCOUIM 

180 

00413 

1377 


TAD 

<BUFFER 

181 

00414 

3 36 7 


DC A 

FADDR 

182 

00415 

7004 


RAL 

/GET 

183 

00416 

3370 


DC A 

EOLSW 

184 



FNEXT, 



185 

00417 

3 3 66 


DC A 

FATIM 

186 

00426 

6014 


RFC 


187 

00421 

2 3 6 6 

FAC I ME, 

ISZ 

FATIM 

188 

00422 

531? 


JMP 

FACT IM 

189 

00423 

7201 

EOF, 

CL A 

I AC 

190 

00424 

5 6 O 2 


JMP 

I FAGCH 

191 

00425 

1270 

CHANGE, 

TAD 

F SEND 

192 

0042 6 

7002 


BSM 


193 

00427 

0320 


AND 

FAC77 

194 

00430 

1321 


TAD 

F AC2O0 

195 

00431 

5266 


JMP 

FACVY+1 

196 



EOL, 



19? 

00432 

1366 


TAD 

FATIM 

198 

00433 

4270 


JMS 

FSEND 

199 

00434 

1317 


TAD 

FAC212 

200 

00435 

4278 


JMS 

FSEND 

201 

00436 

4270 


JMS 

FSEND 

202 

00437 

5602 


JMP 

I FAGCH 

203 



ERRCF, 



204 

00440 

1365 


TAD 

FLCOUN 

205 

00441 

7041 


CIA 


206 

00442 

1376 


TAD 

<-BFSIZE 

207 

00443 

7658 


SNA 

CL A 

208 

00444 

5217 


JMP 

FNFZT 

209 

004 45 

1365 


TAD 

FLCOUN 

210 

00446 

1375 


TAD 

' -1 

211 

00447 

3365 


DC A 

FLCOUN 

212 

00450 

1367 


TAD 

FADDR 

21 ? 

00451 

1375 


TAD 

<-l 

214 

00452 

3367 


DC A 

FADDR 

215 

00453 

5217 


JMP 

FNEXT 

216 

00454 

7200 

OTHER. 

CL A 


217 

00455 

1366 


TAD 

FATIM 

218 

00456 

1374 


TAD 

L -3:41 

219 

00457 

7710 


SPA 

CL A 

220 

00 4 6 0 

5265 


JMP 

FACVV 

221 

00461 

1373 


TAD 

>: 341-373 

•-> •-} -n 

00462 

7780 


SMA 

CL A 


11/29/i 


PAGE 1- 


11 ,';: 


PAGE 


IF PTR OFF OR LINE ERROR 


/TIMING LOOP 


/WE FALL. THROUGH THE CONST TO STALL 


/CARRIGE RET URN=E0L 

/WE ADD LF AFTER OR 
/ZERO CHAR TO MARK EOL 


6 
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223 

00463 

5265 


JMP FACVV 

224 

00464 

1372 


TAD <-40 

225 

00465 

12-66 

FACVV, 

TAD FATIH 

226 

00466 

4270 


JUS FSEND 

227 

08467 

5217 


JMP FNEXT 

223 

00470 

0800 

FSEND, 

0 

229 

00471 

3 3 6 6 


DCA FATIH 

230 

00472 

1370 


TAD EOLSW 

231 

80473 

7646 


S2A CLA 

232 

00474 

5670 


JMP I FSEND 

233 

80475 

1366 


TAD FATIH 

234 

80476 

6221 


CDF BFI ELM 

235 

08477 

3767 


DCA I FADDR 

236 

00500 

6201 


CDF 0 

£23? 

00501 

2367 


I S3 FADDR 

238 

00502 

2 2- 6 5 


IS2 FLCOUN 

239 

00503 

5670 


JMP I FSEND 

240 

00584 

5280 

JPAGE, 

JMP ERRLF /LINE TOO LONG 

241 



/NOTE 

++TABLE IS RATHER VOLATILE 

242 



/ADRES 

SES MUST BE < 100 

243 



ATABLE 

, 

244 

00505 

0017 


. FNEXT-ERRLF /1GN0RE LEADER 

245 

00506 

t* f <£ 5 


C H A N G E—E R R L F+7 7 8 8 /' •' 

246 

00587 

7525 


CHANGE-ERRLF+7 5 8 8 

247 

00510 

5725 


CHA NGE-E RR LF+5780 

248 

00511 

5525 


C h A N G E - E R R L F+55 88 

249 

00512 

8032 


EOL-ERRLF /GT*EOL 

258 

08513 

0023 


EOF-ERRLF /~2=E0F 

251 

00514 

0817 


FNE XT-E RR LF /1GN0RE - S 

252 

00515 

0000 


ERRLF-E RRL F /RE H0V E LINE 

253 

08516 

0040 


ERRCF-ERRLF /REMOVE 1 CHAR 

254 



FACT IM 

, 

255 

00517 

0 212 

F A C 212 

, 212 

Cr 256 

80520 

0077 

FAC 7 7, 

i \ 

257 

00521 

0200 

FAC200 

.* 290 

253 



TABLE, 


259 

00522 

0200 


200 

260 

00523 

0 2 5 7 


II / 

261 

08524 

0255 


II_ 

262 

80525 

0277 


11 

263 

O0526 

8275 


11 

264 

00527 

@215 


215 

265 

00538 

@232 


232 

266 

08531 

0223 


2'23i 

267 

00532 

0225 


ERRLC 

268 

80533 

0234 


ERRCC 

269 

00534 

6011 


RSF /NEGATIVE NUMBER 1 ! 

278 

00535 

5221 


JMP FAC IME 

271 

00536 

1321 


TAD FAC200 

272 

00537 

6812 


RRB 

273 

00540 

3366 


DCA FATIH 

274 

00541 

7701 


ACL 

275 

80542 

3270 


DCA FSEND 

276 

00543 

1670 

LOOP, 

TAD I FSEND 

277 

00544 

7518 


SPA /RSFC0 
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•'F PC- 

HANDLER 

FOR FAC 

IT F'UNC 

H 

PALS-V 

278 

00545 

5254 


JNP 

OTHER 

279 

00546 

7041 


CIA 


289 

00547 

1366 


TAD 

FATIH 

281 

00550 

2270 


I S3 

FSEND 

282 

00551 

7640 


SZA 

CL A 

283 

00552 

5343 


JMP 

LOOP 

284 

00553 

1270 


TAD 

FSEND 

285 

00554 

1371 


TAD 

CATABLE- 

286 

00555 

3270 


DC A 

FSEND 

287 

00556 

1670 


TAD 

I FSEND 

288 

00557 

3270 


DC A 

FSEND 

289 

00560 

1270 


TAD 

FSEND 

290 

00561 

@320 


AND 

FAC77 

291 

08562 

1304 


TAD 

JF'AGE 

292 

00563 

3364 


DC A 

. +1 

293 

00564 

0000 


0 


294 

00565 

0000 

FLCOUN, 

0 


295 

00566 

0000 

FAT I M, 

0 


296 

00567 

0000 

FA DDR.. 

0 


297 

00570 

0000 

EOLSW, 

0 


298 

©0571 

7762 




299 

@0572 

7740 




300 

©0573 

7746 




301 

00574 

7437 




302 

00575 

7777 




303 

00576 

7660 




304 

00577 

7401 




305 


0600 

PAGE 
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306 



/THE FOLLOWING IS NOT NECCISARV BUT HELPFUL 


307 



/IN THE LISTING 


308 



/*•+***** IT MUST NOT BE IN THE BINARV **** 


309 



NOPUNCH 


310 


0002 

FIELD BFIELD 


311 


7400 

+BFSTART 


312 

27400 

0000 

BFSAVE. 0 /USED TO SAVE LAST LOCATION 

TRANSFERRED 

313 



/BETWEEN CALLS TO FAC 


314 

27401 

0000 

BUFFER, ZBLOCK BFSIZE 


315 

27521 

0215 

215 /THESE LOCATIONS ARE LOADED 

AND 

316 

27522 

0 2 12 

212 /USED IF A LINE EXCEEDS 


317 

27523 

0000 

0 /BFSIZE 


318 



ENPUNCH 


319 



$ 
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ACL 

7701 

ATABLE 

0505 

BFI ELD 

0002 

BFIELM 

0020 

BFSAVE 

.7400 

BFSIZE 

0120 

BFSTAR 

7400 

BSW 

7002 

BUFFER 

7401 

CHANGE 

0425 

EOF 

0423 

EOL 

0422 

EOLSW 

0570 

IfRRCC 

0234 

tRRCF 

0440 

ERRLC 

0225 

ERRLF 

0400 

FACCA 

02 66 

FACCDF 

0354 

FACCIF 

0274 

FACEND 

0265 

FACEOF 

026? 

FACERR 

0356 

FACGCH 

0236 

FAC IME 

0421 

FAC 152 

0276 

FAC IT 

0200 

FRCKRS 

026 7 

FACKRT 

0251 

FACLP 

0211 

FAC M3 

0362 

FACPCH 

0364 

L'ACRTN 

0200 

FACT IM 

0517 

FRCWC 

0361 

FACXIT 

0307 

FAC VV 

0465 

FAC20O 

0521 

FAC212 

0517 

FAC?? 

0520 

FADDR 

056? 

FAGADD 

0224 

FAGCH 

0402 

FATIM 

0566 

FA?0 

0 2 6 6 

FA??00 

0363 

FCDF 

@260 

FLCOUN 

0565 

FNEXT 

0417 

FSEND 

0470 

F1ADDR 

0265 

JPAGE 

0504 

LOOP 

0542 

MQL 

7421 

NEWLIN 

0404 


OTHER 0454 
TABLE 0522 
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RCL 

31# 

274 








RTRBLE 

243# 

285 








BFI ELD 

23# 

36 

210 







BFIELM 

36# 

80 

104 

137 

234 





BFSfiVE 

81 

105 

312# 







BFSI2E 

20# 

88 

178 

206 

314 





BFSTRR 

22# 

311 








BSW 

29# 

192 








BUFFER 

70 

c* S 

143 

175 

180 

214# 




CHANGE 

191# 

245 

246 

24 7 

248 





EOF 

189# 

250 








EOL 

196# 

249 








EQLSM 

173 

183 

230 

297# 






ERRCC 

27# 

268 








ERRCF 

203# 

253 








ERRLC 

26# 

267 








ERRLF 

169# 

240 

244 

245 

246 

247 

248 

249 

250 


252 

252 

253 







F AC 

14 









FflCCfl 

57 

92 

113 

122 

123 

120 

131 

157# 


FfiCCDF 

47 

136 

140 

147# 






FfiCCIF 

42 

99# 








FRCEND 

92# 

132 








FflCEOF 

7 2 

106 

134 

142 

158# 





FftCERR 

51 

O r 

98 

149# 






FRCGCH 

112 

114 

116 

117 

118 

124 

133# 

145 

148 

FRCIME 

187# 

270 








FRCIS2 

98 

101# 








FfiCIT 

39# 

44 

48 

49 

55 

56 

66 

108 

109 

FflCKRS 

79 

91 

94# 







FRCKRT 

69 

80# 








FfiCLP 

102 

112# 








FRCM3 

96 

153# 








FRCPCH 

115 

129 

155# 







FRCRTN 

103# 









FACT IM 

188 

254# 








FRCWC 

54 

101 

152# 







FRCXIT 

43 

110# 

150 







FRCVV 

195 

220 

22 3- 

225# 






FRC200 

194 

257# 

271 







FRC212 

199 

255# 








FRC7? 

i 93 

256# 

290 







FRDDR 

176 

181 

212 

214 

235 

2 2 7 

296# 



FRGRDD 

58 

59# 

60 

6 2 

63 

r' o 

141 



FRGCH 

61 

6 4 

171# 

190 

202 





FRTIM 

185 

187 

197 

217 

225 

2 2 9 

w 2 .i- 

2 71 : 

2S0 

FR70 

45 

93# 








FR7700 

52 

154# 








FCDF 

46 

151# 








FL CO !JN 

174 

179 

204 

209 

2.1.1 

“<* j-j 

294# 



FNEXT 

184# 

208 

215 

227 

244 

25.1 




FPTR 

12 









FSENO 

177 

191 

198 

200 

20:1 

ii 

228#’ 

ii! -■ ii! 

2 2 9 


276 

281 

284 

286 

!•/* y ,•’* 

v y y 

2 S 



FlflDDR 

71 

82 

85 

103 

128 

144 

146 

156# 



251 


111 


295 # 


10 



J. 


JPflGE 

240# 

291 

LOOP 

276# 

283 

MQ.L 

20# 

65 

MEWL IN 

170 

173# 

OTHER 

216# 

278 

TABLE 

64 

258# 

„L0371 

95 


_L0372 

88 


-L0373 

121 

128 

„L0374 

r" —• 


_L0375 

70 

83 

_L0376 

64 


_L0377 

61 


_L0571 

285 


_L0572 

224 


_L0573 

221 


_L0574 

218 


„L0575 

210 

213 

_L0576 

1 >** 8 

2@6 

_L0577 

175 

180 


*f r~ r\ i i r 


n 











